home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side1.d64 / hex convert.s < prev    next >
Encoding:
Text File  |  1990-01-01  |  1.0 KB  |  107 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. load =$ffd5
  6. getin =$ffe4
  7. clrchn =$ffcc
  8. close =$ffc3   ;a
  9. chrin =$ffcf
  10. chkout =$ffc9  ;x
  11. chkin =$ffc6   ;x
  12. plot =$fff0
  13. chrout =$ffd2
  14. color'pointer =243
  15. screen'line'pointer =209
  16. print'number =$bdcd ;x,a
  17. clear'line =59903
  18. background =53281
  19. border =53280
  20. unlisten =$ffae
  21. clall =$ffe7
  22.  
  23.  
  24. .org $c000
  25. .mem
  26.  
  27. jsr $aefd
  28. jsr $ad9e
  29. jsr $b7f7
  30.  
  31. sta high
  32. sty low
  33.  
  34. convert lda high
  35. and #%11110000
  36. lsr
  37. lsr
  38. lsr
  39. lsr
  40. tay
  41. lda hex,y
  42. sta buffer
  43.  
  44. lda high
  45. and #%00001111
  46. tay
  47. lda hex,y
  48. sta buffer+1
  49.  
  50. lda low
  51. and #%11110000
  52. lsr
  53. lsr
  54. lsr
  55. lsr
  56. tay
  57. lda hex,y
  58. sta buffer+2
  59.  
  60. lda low
  61. and #%00001111
  62. tay
  63. lda hex,y
  64. sta buffer+3
  65.  
  66. ldy #4
  67. sty hlength
  68.  
  69. ldx <hex'name
  70. ldy >hex'name
  71. jsr locvar
  72. lda <hlength
  73. ldy >hlength
  74. jmp set'string
  75.  
  76. locvar lda $7a
  77. pha
  78. lda $7b
  79. pha
  80. stx $7a
  81. sty $7b
  82. jsr $b08b
  83. sta $49
  84. sty $4a
  85. pla
  86. sta $7b
  87. pla
  88. sta $7a
  89. rts
  90.  
  91. set'string sta $64
  92. sty $65
  93. jmp $aa52
  94.  
  95. hex'name .asc "hex$":.byt 0
  96. hlength .byt 0
  97. .word buffer
  98.  
  99. hex .asc "0123456789abcdef"
  100. low .byt 0
  101. high .byt 0
  102. temp .byt 0
  103. counter .byt 0
  104. buffer .buf 4
  105. .end
  106.  
  107.